package Server;

use strict;

sub new {
    my $class = shift;
    my $self = {};

    $self->{IP} = undef;

    bless ($self, $class);
    return $self;
}

sub ip {
    my $self = shift;
    if (@_) { 
	$self->{IP} = shift;
    }
    return $self->{IP};
}

sub DESTORY {
    my $self = shift;
}

1;
